home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / sound < prev    next >
Text File  |  2002-09-18  |  844b  |  34 lines
  1. /*
  2.  * A simple script to support DCC SOUND as specified by mirc
  3.  * I got my info directly from Tjerk, so I claim total innocence 
  4.  * if the implementation is wrong. :P
  5.  */
  6.  
  7. on ^ctcp "% % SOUND ?*" 
  8. {
  9.     # Do the 'action' part of it
  10.     switch ($4)
  11.     {
  12.         ()  {echo *** This sound ($3) courtesy of $0}
  13.         (*) {echo * $0 $4-}
  14.     }
  15.     switch ($3)
  16.     {
  17.         (*.wav) {exec -direct ${PLAYWAV} $3}
  18.         (*)     {exec -direct ${PLAYWAV} $3.wav}
  19.     }
  20. }
  21.  
  22. /*
  23.  * Usage: /sound <target|*> <wavfile> <action-text>
  24.  * All the arguments are required, according to the specification.
  25.  *
  26.  * The first argument is who to send it to, '*' goes to current target
  27.  * The second argument is the wav file to be played.  The receiver is
  28.  *    assumed to have this wav file already..
  29.  * The rest of the arguments are "action text", ala the /me command.
  30.  */
  31. alias sound ctcp $0 SOUND $1-
  32.  
  33. #hop'96
  34.